home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / BUGWIZ~1.BAS < prev    next >
BASIC Source File  |  1997-06-14  |  686b  |  24 lines
  1. Attribute VB_Name = "MBugWizMain"
  2. Sub Main()
  3.     Dim sSwitch As String, sFile As String
  4.     sSwitch = GetToken(Command$, " ")
  5.     sFile = GetToken(sEmpty, " ")
  6.     If (sSwitch <> "/r") And (sSwitch <> "/d") Then
  7.         Dim frm As FBugWizard
  8.         Set frm = New FBugWizard
  9.         frm.Show
  10.     Else
  11.         Dim bug As CBugFilter
  12.         Set bug = New CBugFilter
  13.         IFilter(bug).Source = sFile
  14.         If sSwitch = "/r" Then
  15.             ' Disable bug procedures
  16.             bug.FilterType = eftDisableBug
  17.         Else
  18.             ' Enable bug procedures
  19.             bug.FilterType = eftEnableBug
  20.         End If
  21.         FilterTextFile bug
  22.     End If
  23. End Sub
  24.